﻿'Clinciu Andrei
Option Strict On

Imports System.Collections.Generic

Public Class OrderProducts
    Private _product As String
    Private _totalOrdered, _maxOrdered, _id As Integer
    Private _pricePerOne, _subtotal As Decimal

    Public Sub New(ByVal product As String, ByVal totalOrdered As Integer, ByVal pricePerOne As Decimal, ByVal subtotal As Decimal, ByVal maxOrdered As Integer)
        _id = Id
        _product = product
        _totalOrdered = totalOrdered
        _pricePerOne = pricePerOne
        _subtotal = subtotal
        _maxOrdered = maxOrdered
    End Sub

    Public Property Id As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property
    Public Property Product As String
        Get
            Return _product
        End Get
        Set(ByVal value As String)
            _product = value
        End Set
    End Property

    Public Property TotalOrdered As Integer
        Get
            Return _totalOrdered
        End Get
        Set(ByVal value As Integer)
            _totalOrdered = value
        End Set
    End Property
    Public Property MaxOrdered As Integer
        Get
            Return _maxOrdered
        End Get
        Set(ByVal value As Integer)
            _maxOrdered = value
        End Set
    End Property

    Public Property PricePerOne As Decimal
        Get
            Return _pricePerOne
        End Get
        Set(ByVal value As Decimal)
            _pricePerOne = value
        End Set
    End Property

    Public Property Subtotal As Decimal
        Get
            Return _subtotal
        End Get
        Set(ByVal value As Decimal)
            _subtotal = value
        End Set
    End Property

End Class
